home *** CD-ROM | disk | FTP | other *** search
Text File | 1990-06-24 | 1.0 KB | 52 lines | [TEXT/MPS ] |
- {**********************************************************************
- {*
- {* Teach uUtils -- Version 3.0 (interface)
- {*
- {* Copyright (c)
- {* Apple Computer, Inc. 1986-1990
- {* All Rights Reserved.
- {*
- {* Developer Technical Support Apple II Sample Code
- {*
- {* This file contains the interface to the code which implements
- {* various utility routines used by the Teach program.
- {*
- {**********************************************************************}
-
- Unit uUtils;
-
- INTERFACE
-
- USES
- types,
- locator,
- intMath,
- memory,
- QuickDraw,
- events,
- controls,
- windows,
-
- uGlobals;
-
-
- CONST
- srcCopy = $0000;
-
- FUNCTION IntToString (i : Integer): STR255;
- FUNCTION LongToString (l : LongInt): STR255; { test }
- FUNCTION IsToolError: BOOLEAN;
- PROCEDURE INC(VAR anIndex : Integer);
- PROCEDURE Dec(VAR anIndex: Integer);
- function PStringToNewC1String (PStringPtr : String255Ptr) : handle;
-
- procedure C1OutputToC1Input (TheHandle : handle);
- procedure C1OutputToPString (TheHandle : handle);
-
-
-
- IMPLEMENTATION
-
- {$i uUtils.inc.p }
-
- END.